﻿Imports BUS
Public Class FormChinh

    Private Sub btnthemhs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnthemhs.Click
        Dim f As New HoSoHocSinh()
        f.ShowDialog()
    End Sub

    Private Sub btndanhsachlop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndanhsachlop.Click
        Dim f As New DanhSachLop()
        f.ShowDialog()
    End Sub

    Private Sub btnbangdiemmon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbangdiemmon.Click
        Dim f As New BangDiemMonHoc()
        f.ShowDialog()
    End Sub

    Private Sub btntracuuhs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntracuuhs.Click
        Dim f As New TraCuuHocSinh()
        f.ShowDialog()
    End Sub

    Private Sub btnthemlop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnthemlop.Click
        Dim f As New ThemLop()
        f.ShowDialog()
    End Sub

    Private Sub btnthemkhoi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnthemkhoi.Click
        Dim f As New ThemKhoiLop()
        f.ShowDialog()
    End Sub

    Private Sub btnthemmonhoc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnthemmonhoc.Click
        Dim f As New ThemMonHoc()
        f.ShowDialog()
    End Sub

    Private Sub btncapnhaths_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncapnhaths.Click
        Dim f As New CapNhatHocSinh()
        f.ShowDialog()
    End Sub

    Private Sub btnbaocaotongkethocky_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaocaotongkethocky.Click
        Dim f As New BaoCaoTongKetHocKy()
        f.ShowDialog()
    End Sub

    Private Sub btncapnhatlop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncapnhatlop.Click
        Dim f As New CapNhatLop()
        f.ShowDialog()
    End Sub

    Private Sub btncapnhatkhoi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncapnhatkhoi.Click
        Dim f As New CapNhatKhoiLop()
        f.ShowDialog()
    End Sub

    Private Sub btncapnhatbangthamso_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncapnhatbangthamso.Click
        Dim f As New CapNhatBangThamSo()
        f.ShowDialog()
    End Sub

    Private Sub btncapnhatmonhoc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncapnhatmonhoc.Click
        Dim f As New CapNhatMonHoc()
        f.ShowDialog()
    End Sub

    Private Sub btntracuulop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntracuulop.Click
        Dim f As New TraCuuLop()
        f.ShowDialog()
    End Sub

    Private Sub btnbaocaotongketmon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaocaotongketmon.Click
        Dim f As New BaoCaoTongKetMon()
        f.ShowDialog()
    End Sub

    Private Sub btnchuyendulieuhsthanhexcel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnchuyendulieuhsthanhexcel.Click
        Dim f As New Export_Hoc_Sinh_Excel()
        f.ShowDialog()
    End Sub

    Private Sub btnimporthstuexcel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnimporthstuexcel.Click
        Dim f As New ImportHocSinhExcel()
        f.ShowDialog()
    End Sub
End Class
